N89-16362 


PARANOIA . ADA : 


SAMPLE OUTPUT REPORTS 
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Paranoia. Ada (R) 

A Diagnostic Benchmark 


Paranoia. Ada is a program to diagnose f loating-poirit arithmetic 
in the context of the Ada(*) programming language. The program 
evaluates the quality of a floating-point arithmetic implementa- 
tion with respect to the proposed IEEE Standards P754 and P854. 

Paranoia. Ada is derived from the original BASIC programming 
language version of Paranoia developed and copyrighted by 
Professor W.M. Kahan of the University of California, Berkeley. 

The BASIC Paranoia program is described in “Paranoia: A Floating- 
Point. Benchmark", by Richard Karpinsky, Byte Magazine, Vol . 10, 
No. 2, February 1985, pp. 223-235. 

Paranoia. Ada replicates in Ada the test algorithms originally 
implemented in BASIC and adheres to the evaluation criteria 
established by Kahan. 

Paranoia. Ada incorporates a major structural redesign and 
employs applicable Ada architectural and stylistic features. 

* Ada is a registered trademark of the U.S. Government, 

AJPO (Ada Joint Program Office) 

(C) Package_Architects, Inc. 1986 


F3.4.15 



Paranoia Report for type D_FLOAT 
DEC ACS 1.0-7 VAX/765 (VMS 4.2) 


19:36:42 22-Apr-1986 


S YSTEM_NAME : VAX_VMS 
Small Integral Values Test 

Radix, Precision, and Closest Relative Separation Test 

Normalized Subtraction Test 

Guard Digit on Subtraction Test 

Guard Digit on Multiplication Test 

Guard Digit on Division Test 

Rounding for Addition/Subtraction Test 

Rounding for Multiplication Test 

Rounding for Division Test 

Rounding Sticky Bit Test 

Commutative Multiplication Test 

Underflow Test 
FLAW: 

Comparison says X /= 2 , and yet X - 2 = 0.0 
X = 4.0407616309516133E-39 
2 = 2 . 938735877055718SE-39 
SERIOUS DEFECT: 

Exception NUMERIC_ERROR was NOT raised to report 
underflow for Y : = X - Z 

Confusion will be caused when innocent statements 
like: 

if (x=z) 
then . . . 

else — (f (x)-f (z) )/(x-z) — 
encounter division by zero although actually 
X / 2 = 1.0 + 3 . 7500000000000000E-01 
SERIOUS DEFECT: 

Range is too narrow, U1 ** 4 underflows 
Conversion Rounding Test 
Overflow Test 
Integer Power Test 
Division by 2ero Test 
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Paranoia Summary for type D_FLOAT 
DEC ACS 1.0-7 VAX/ 765 (VMS 4.2) 


19:36:42 22-Apr-1986 


f 


SERIOUS DEFECTS discovered 2 

FLAWS discovered 1 

Small Integral Values -1.0, 0.0, 0.5, 1.0, 2.0, 

3.0, 4.0, 5.0, 6.0, 9.0, 

24.0, 27.0, 32.0, and 240.0 are o.k. 

Radix, Precision, and Closest Relative Separation 

Ada Implementation Attributes 
D_FLOAT’MACHINE_RADIX 
D_FL0AT ’ MACH1NE_MANTISSA 
D_FL0AT ’MANTISSA 
D.FLOAT ’DIGITS 
D.FLOAT’ EPSILON 

9.3132257461547652E-10 

Calculated Values 
Radi x 
Precision 

U1 [1.0 - nextafter (1 .0, 0.0)] 

1 .3677767607814457E-17 
U2 [nextaf ter (1 .0, 2.0) - 1.0] 

2 . 7755575615626914E-17 

Subtraction is normalized 

Guard Digits 

Subtraction: has guard digit 

Multiplication: has guard digit 
Division: has guard digit 

Rounding 

Ada Implementation Attributes 

D_FL0AT ’ MACHINE_ROUNDS TRUE 

Calculated Values 

Addition/Subtraction: appears to be correctly rounded 

Multiplication: appears to be correctly rounded 

Division: appears to be correctly rounded 

Sticky bit; used incorrectly or not at all 

Multiply commutes correctly for 20 pairs 

Underflow 


2 

56 digits of Radix 


2 

56 bits 
31 bits 

9 decimal digits 


Ada Implementation Attributes 
D_FL0AT’ SMALL 
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Paranoia Summary for type D_FLGAT 
DEC ACS 1.0-7 VAX/785 (VMS 4.2) 


19:38:42 22-Apr— 1986 


2 . 3509887016445750E-38 
D FLOAT ’SAFE SMALL 

2 . 93873587705571 88E-39 

Calculated Values 

EO - smallest positive number 
2 . 9387358770557188E-39 
UO - underflow threshold 

2 . 9387358770557 188E-39 

Conversion from +-X.5 to INTEGER rounds FR0M_ZER0 
Overflow 

Ada Implementation Attributes 

D.FLOAT ’ MACHINE.OVERFLOWS TRUE 

D_FL0AT ’ LARGE 

2 . 126764 7922655 134E+37 
D.FLOAT ’ SAFE_LARGE 

1 . 70141 183381 24 107E+3S 
D_FL0AT ’ LAST 

1 . 70141 18346046923E+38 

Calculated Values 

VO - overflow saturation 

1. 70141 18346046923E+38 
V - overflow threshold 

1 . 70141 16346046923E+38 

Integer Powers were calculated correctly 

Division by 0.0 handled correctly 


With respect to the proposed IEEE standards P754 and P654: 

The arithmetic diagnosed has unacceptable serious defects 


Paranoia calculations elapsed time 0.9300 seconds 

Paranoia report elapsed time 0.6800 seconds 
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Paranoia Report for type G_FLOAT 20:05:18 22-Apr-1986 

DEC ACS 1.0-7 VAX/785 (VMS 4.2) 


SYSTEM.NAME: VAX_VMS 
Small Integral Values Test 

Radix, Precision, and Closest Relative Separation Test 

Normalized Subtraction Test 

Guard Digit on Subtraction Test 

Guard Digit on Multiplication Test 

Guard Digit on Division Test 

Rounding for Addition/Subtraction Test 

Rounding for Multiplication Test 

Rounding for Division Test 

Rounding Sticky Bit Test 

Commutative Multiplication Test 

Underflow Test 
FLAW: 

Comparison says X /= Z, and yet X - Z = 0.0 
X = 7 . 6486913886 1 8505E-309 
Z = 5.562684646268003E-309 
SERIOUS DEFECT: 

Exception NUMERIC_ERROR was NOT raised to report 
underflow for Y : = X - Z 

Confusion will be caused when innocent statements 
like: 

if (x=z) 
then . . . 

else ... (f (x)-f (z) )/(x-z) — 
encounter division by zero although actually 
X / Z = 1.0 + 3.750000000000000E-01 

Conversion Rounding Test 

Overflow Test 

Integer Power Test 

Division by Zero Test 
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Paranoia Summary for type G_FLOAT 20:05:16 22-Apt — 1986 

DEC ACS 1.0-7 VAX/ 765 (VMS 4.2) 


SERIOUS DEFECTS discovered 1 

FLAWS discovered 1 

Small Integral Values -1.0, 0.0, 0.5, 1.0, 2.0, 

3.0, 4.0, 5.0, 6.0, 9.0, 

24.0, 27.0, 32.0, and 240.0 are o.k. 

Radix, Precision, and Closest Relative Separation 

Ada Implementation Attributes 
G.FLOAT ’MACHINE. RADIX 
G.FLOAT ’ MACHI NE.MANT I SSA 
G FLOAT* MANTISSA 
G.FLOAT ’DIGITS 
G FLOAT* EPSILON 

8.681764197001252E-16 

Calculated Values 
Radix 
Precision 

U1 [1.0 - nextafter (1 .0, 0.0)] 

1 . 110223024625157E-16 
U2 [nextafter (1.0, 2.0) - 1.0] 

2 . 2204460492503 1 3E- 1 6 

Subtraction is normalized 

Guard Digits 

Subtraction: has guard digit 

Multiplication: has guard digit 
Division: has guard digit 

Rounding 

Ada Implementation Attributes 

G.FLOAT *MACHINE_ROUNDS TRUE 

Calculated Values 

Addition/Subtraction: appears to be correctly rounded 
Multiplication: appears to be correctly rounded 

Division: appears to be correctly rounded 

Sticky bit; used incorrectly or not at all 

Multiply commutes correctly for 20 pairs 

Underflow 

Ada Implementation Attributes 
G FLOAT ’SMALL 


2 

53 digits of Radix 


2 

53 bits 
51 bits 

15 decimal digits 
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Paranoia Summary for type G_FLOAT 
DEC ACS 1.0-7 VAX/ 785 (VMS 4.2) 


20:05:18 22- Apr-1 986 


1 .944692274331607E-62 
G.FLOAT ’ SAFE.SMALL 

5 . 562684646266003E-309 

Calculated Values 

EO - smallest positive number 
5 . 562664646268003E-309 
UO - underflow threshold 

5 . 562684646268003E-309 

Conversion from +-X.5 to INTEGER rounds FR0M_ZER0 
Overflow 

Ada Implementation Attributes 

G_FL0AT ’MACHINE OVERFLOWS TRUE 

G_FL0AT f LARGE 

2 . 571 100870814383E+61 
G.FLOAT ’ SAFE_LARGE 

8 . 96846567431 1576E+307 
G.FLOAT’LAST 

8 . 98846567431 1 579E+307 

Calculated Values 

VO - overflow saturation 

8 . 988465674311 579E+307 
V - overflow threshold 

e. 98846567431 1579E+307 

Integer Powers were calculated correctly 

Division by 0.0 handled correctly 


With respect to the proposed IEEE standards P754 and P854: 

The arithmetic diagnosed has unacceptable serious defects 


Paranoia calculations elapsed time 1.2600 seconds 

Paranoia report elapsed time 0.7100 seconds 


F3.4.21 




Paranoia Report for type H_FLOAT 
DEC ACS 1.0-7 VAX/7C5 (VMS 4.2) 


20:47:00 22-Apr-1986 


SYSTEM_NAME : VAX.VMS 
Small Integral Values Test 

Radix, Precision, and Closest Relative Separation Test 

Normalized Subtraction Test 

Guard Digit on Subtraction Test 

Guard Digit on Multiplication Test 

Guard Digit on Division Test 

Rounding for Addition/Subtraction Test 

Rounding for Multiplication Test 

Rounding for Division Test 

Rounding Sticky Bit Test 

Commutative Multiplication Test 

Underflow Test 
FLAW: 

Comparison says X /= Z, and yet X - Z = 0.0 
X = 1 . 155722955444762142777795499704352E - 4932 
Z = 6 . 405257857780233765656694543304382E-4933 
SERIOUS DEFECT: 

Exception NUMERIC.ERROR was NOT raised to report 
underflow for Y := X - Z 

Confusion will be caused when innocent statements 
like: 

if <x=z) 
then ... 

else ... (f(x)-f(z))/(x-z) ... 
encounter division by zero although actually 
X / Z = 1.0 + 3 . 750000000000000000000000000000000E— 01 

Conversion Rounding Test 

Overflow Test 

Integer Power Test 

Division by Zero Test 


¥ 3.422 



Paranoia Summary for type H_FLOAT 20:47:00 22-Apr-1986 

DEC ACS 1.0-7 VAX/765 (VMS 4.2) 


SERIOUS DEFECTS discovered 1 

FLAWS discovered 1 

Small Integral Values -1.0, 0.0, O.S, 1.0, 2.0, 

3.0, 4.0, 5.0, 8.0, 9.0, 

24.0, 27.0, 32.0, and 240.0 are o.k. 

Radix, Precision, and Closest Relative Separation 

Ada Implementation Attributes 

H_FL0AT * MACHINE_RADIX 2 

H_FL0AT * MACHI NE_MANT I SSA 113 bits 

H_FL0AT ’MANTISSA 111 bits 

H_FL0AT * DIGITS 33 decimal digits 

H_FL0AT’ EPSILON 

7. 70371977754694341222391 1770339709E-34 
Calculated Values 

Radix 2 

Precision 113 digits of Radix 

U1 [1.0 - nextafter (1 .0, 0.0)] 

9.629649721936179265279689712924637E-35 
U2 [nextafter (1.0, 2.0) - 1.0] 

1 . 925929944367235853055977942584927E-34 

Subtraction is normalized 

Guard Digits 

Subtraction: has guard digit 

Multiplication: has guard digit 
Division: has guard digit 

Rounding 

Ada Implementation Attributes 

H_FLOAT * MACHINE.ROUNDS TRUE 

Calculated Values 

Addition/Subtraction: appears to be correctly rounded 
Multiplication: appears to be correctly rounded 

Division: appears to be correctly rounded 

Sticky bit; used incorrectly or not at all 

Multiply commutes correctly for 20 pairs 

Underflow 

Ada Implementation Attributes 
H_FL0AT * SMALL 
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Paranoia Summary for type H_FL0AT 
DEC ACS 1.0-7 VAX/ 785 (VMS 4.2) 


20:47:00 22-Apr-1986 


1 . 1006 56821 463791 821 093431 802093605E-1 34 
H FLOAT ’SAFE_SMALL 

8 . 405257857780233765656694543304382E-4933 

Calculated Values 

EO - smallest positive number 

8 . 405257857780233765656694543304382E-4933 
UO - underflow threshold 

8 . 405257857780233765656694543304382E-4933 

Conversion from +-X.5 to INTEGER rounds FR0M_ZER0 

Overflow 

Ada Implementation Attributes 

H_FL0AT * MACHINE_OVERFLOWS TRUE 

H_ FLOAT’ LARGE 

4 . 542742026647543065933273799300027E+133 
H_FL0AT ’ SAFE_LARGE 

5 . 9486574767861 58825428796633140033E+4931 
H_FL0AT ’LAST 

5.946657476766158825428796633140035E+4931 

Calculated Values 

VO - overflow saturation 

5.948657476786158825428796633140035E+4931 
V - overflow threshold 

5 . 9486574767861 58825428796633140035E+4931 

Integer Powers were calculated correctly 

Division by 0.0 handled correctly 


With respect to the proposed IEEE standards P754 and P6S4: 

The arithmetic diagnosed has unacceptable serious defects 


Paranoia calculations elapsed time 
Paranoia report elapsed time 


3.7500 seconds 
0.6900 seconds 
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Paranoia Report for type MAX_DIGITS 20:09:27 28 Apr 1986 

DEC ACS 1.0-7 VAX/ 785 (VMS 4?2) 


SYSTEM_NAME: VAX_VMS 
Small Integral Values Test 

Radix, Precision, and Closest Relative Separation Test 

Normalized Subtraction Test 

Guard Digit on Subtraction Test 

Guard Digit on Multiplication Test 

Guard Digit on Division Test 

Rounding for Addition/Subtraction Test 

Rounding for Multiplication Test 

Rounding for Division Test 

Rounding Sticky Bit Test 

Commutative Multiplication Test 

Underflow Test 
FLAW: 

Comparison says X /= Z, and yet X - Z = 0.0 
X = 1 . 155722955444782142777795499704352E-4932 
Z = 8 . 40525765778023376565669454 3304382E-4933 
SERIOUS DEFECT: 

Exception NUMERIC_ERROR was NOT raised to report 
underflow for Y := X - Z 

Confusion will be caused when innocent statements 
like: 

if <x=z) 
then ... 

else ... (f (x)-f (z) )/ (x-z) ... 
encounter division by zero although actually 
X / Z = 1.0 ♦ 3.750000000000000000000000000000000E-01 

Conversion Rounding Test 

Overflow Test 

Integer Power Test 

Division by Zero Test 
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Paranoia Summary for type MAX_DIGITS 
DEC ACS 1.0-7 VAX/7e5 (VMS 4.2) 


20:09:27 28- Apr-1 98 


SERIOUS DEFECTS discovered 1 

FLAWS discovered 1 


Small Integral Values -1.0, 0.0, 0.5, 1.0, 2.0, 

3.0, 4.0, 5.0, 8.0, 9.0, 

24.0, 27.0, 32.0, and 240.0 are o.k. 

Radix, Precision, and Closest Relative Separation 


Ada Implementation Attributes 

MAX_DIGITS’MACHINE_RADIX 2 

MAX_DIGITS’MACHINE_MANTISSA 113 bits 

MAX_DIGITS ’MANTISSA 111 bits 

MAX_DIGITS’ DIGITS 33 decimal 

MAX.DIGITS ’EPSILON 

7 . 70371977754894341222391 1770339709E-34 


digits 


Calculated Values 

Radix 2 

Precision 113 digits of Radix 

U1 [1.0 - nextafter (1 .0, 0.0)] 

9 . 6296497219361 79265279889712924637E-35 
U2 [nextafter (1 .0, 2.0) - 1.0] 

1 . 925929944387235853055977942564927E-34 


Subtraction is normalized 


Guard Digits 

Subtraction: has guard digit 

Multiplication: has guard digit 
Division: has guard digit 

Rounding 

Ada Implementation Attributes 

M AX_D I GITS* MACH I NE_R0UNDS TRUE 

Calculated Values 

Addition/Subtraction: appears to be correctly rounded 
Multiplication: appears to be correctly rounded 

Division: appears to be correctly rounded 

Sticky bit; used incorrectly or not at all 

Multiply commutes correctly for 20 pairs 

Underflow 

Ada Implementation Attributes 
MAX_DIGITS ’ SMALL 
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Paranoia Summary for type MAX_DIGITS 
DEC ACS 1.0-7 VAX/ 785 (VMS 4.2) 


20:09:27 28-Apr-19S6 


1 . 1 00656621463791 821 093431 802093605E-1 34 
MAX_DIGITS’SAFE_SMALL 

8 . 405257857780233765656694543304382E-4933 

Calculated Values 

EO - smallest positive number 

8 . 405257857780233765656694543304382E— 4933 
UO - underflow threshold 

8 . 405257857780233765656694543304382E-4933 

Conversion from +-X.5 to INTEGER rounds FR0M_ZER0 

Overflow 

Ada Implementation Attributes 

MAX_DI GITS ’ MACHINE_OVERFLOWS TRUE 

MAX_D1GITS ’LARGE 

4 . 542742026847543065933273799300027E+133 
MAX_DIGITS ’ SAFE_LARGE 

5 . 9486574767861 588254287966331 40033E+4931 
MAX_DIGITS*LAST 

5 . 9486574767861 58825428796633140035E+4931 

Calculated Values 

VO - overflow saturation 

5 . 948657476786158825428796633140035E+4931 
V - overflow threshold 

5. 9486574 767861 58825428796633140035E+4931 

Integer Powers were calculated correctly 

Division by 0.0 handled correctly 


/ With respect to the proposed IEEE standards P754 and P854: 

The arithmetic diagnosed has unacceptable serious defects 


Paranoia calculations elapsed time 4.4200 seconds 

Paranoia report elapsed time 0.7100 seconds 
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